home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-04
/
gs24src.zip
/
GS_CCFNT.PS
< prev
next >
Wrap
Text File
|
1992-02-29
|
2KB
|
43 lines
% Copyright (C) 1992 Aladdin Enterprises. All rights reserved.
% Distributed by Free Software Foundation, Inc.
%
% This file is part of Ghostscript.
%
% Ghostscript is distributed in the hope that it will be useful, but
% WITHOUT ANY WARRANTY. No author or distributor accepts responsibility
% to anyone for the consequences of using it or for whether it serves any
% particular purpose or works at all, unless he says so in writing. Refer
% to the Ghostscript General Public License for full details.
%
% Everyone is granted permission to copy, modify and redistribute
% Ghostscript, but only under the conditions described in the Ghostscript
% General Public License. A copy of this license is supposed to have been
% given to you along with Ghostscript so you can know your rights and
% responsibilities. It should be in a file named COPYING. Among other
% things, the copyright notice and this notice must be preserved on all
% copies.
% Initialization file to register precompiled fonts.
% Find all the precompiled font operators in systemdict.
mark systemdict
{ pop dup length 6 gt
{ dup =string cvs 0 6 getinterval (.font_) ne { pop } if }
{ pop }
ifelse
}
forall
% Create the fonts, and fix up the Encoding if needed.
counttomark dup dict begin
{ dup cvx exec dup begin
Encoding type /stringtype eq
{ Encoding cvn cvx exec /Encoding exch def
}
if
exch pop FontName exch
end def
}
repeat pop
currentdict end /CompiledFonts exch def